home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Kick Pascal v2.10 d1.adf / INCLUDE / graphics / rastport.h < prev    next >
Text File  |  1990-11-01  |  1KB  |  64 lines
  1. {$if not def GRAPHICS_RASTPORT_H}
  2. Const GRAPHICS_RASTPORT_H=99;
  3. {$if not def GRAPHICS_GFX_H;incl"graphics/gfx.h";endif}
  4. type
  5. p_AreaInfo=^AreaInfo;
  6. AreaInfo=Record
  7.  VctrTbl,VctrPtr:^integer;
  8.  FlagTbl,FlagPtr:^Short;
  9.  Count,MaxCount,FirstX,FirstY:integer
  10. End;
  11. p_TmpRas=^TmpRas;
  12. TmpRas=Record
  13.  RasPtr:^Short;
  14.  Size:Long
  15. End;
  16. p_GelsInfo=^GelsInfo;
  17. GelsInfo=Record
  18.  sprRsrvd:Short;
  19.  Flags:Byte;
  20.  gelHead,gelTail:Ptr;
  21.  nextLine:^integer;
  22.  lastColor:^^integer;
  23.  collHandler:Ptr;
  24.  leftmost,rightmost,topmost,bottommost:integer;
  25.  firstBlissObj,lastBlissObj:Ptr;
  26. End;
  27. p_RastPort=^RastPort;
  28. RastPort=Record
  29.  Layer:Ptr;
  30.  BitMap:p_BitMap;
  31.  AreaPtrn:Ptr;
  32.  TmpRas:p_TmpRas;
  33.  AreaInfo:p_AreaInfo;
  34.  GelsInfo:p_GelsInfo;
  35.  Mask:Byte;
  36.  FgPen,BgPen,AOlPen,DrawMode,AreaPtSz,linpatcnt,dummy:Short;
  37.  Flags,LinePtrn:Word;
  38.  cp_x,cp_y:integer;
  39.  minterms:Array[0..7]of Byte;
  40.  PenWidth,PenHeight:integer;
  41.  Font:Ptr;
  42.  AlgoStyle,TxFlags:Byte;
  43.  TxHeight,TxWidth,TxBaseline:Word;
  44.  TxSpacing:integer;
  45.  RP_User:Ptr;
  46.  longreserved:Array[1..2]of Long;
  47. {$if not def GFX_RASTPORT_1_2}
  48.  wordreserved:Array[1..7]of Word;
  49.  reserved:Array[1..8]of Byte;
  50. {$endif}
  51. End;
  52. Const
  53.  JAM1=0;
  54.  JAM2=1;
  55.  COMPLEMENT=2;
  56.  INVERSVID=4;
  57.  FRST_DOT=$01;
  58.  ONE_DOT=$02;
  59.  DBUFFER=$04;
  60.  AREAOUTLINE=$08;
  61.  NOCROSSFILL=$20;
  62. {$endif}
  63.  
  64.